home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / TXTTST.PI < prev    next >
Encoding:
Text File  |  1992-02-04  |  1.2 KB  |  64 lines
  1. # Generic Polyray input File
  2. # Polyray input file: Alexander Enzmann
  3.  
  4. # Set up the camera
  5. viewpoint {
  6.    from <0, 5, -5>
  7.    at   <0, 0,  0>
  8.    up   <0, 1,  0>
  9.    angle 30
  10.    resolution 160, 80
  11.    aspect 2
  12.    }
  13.  
  14. background black
  15. light <10, 10, -20>
  16.  
  17. define test_map
  18.    color_map(
  19.       [0,   0.3, <0, 0, 1>, <1, 0, 0>]
  20.       [0.3, 0.4, <1, 0, 0>, <0, 1, 0>]
  21.       [0.6, 1.0, <0, 1, 0>, <0, 0, 1>],
  22.       <1, 1, 1>)
  23.  
  24. # This texture moves with the object
  25. define test_map_texture0
  26. texture {
  27.    special surface {
  28.       color test_map[fmod(fabs(P[0]), 1.0)]
  29.       ambient 0.2
  30.       diffuse 0.8
  31.       specular white, 0.5
  32.       microfacet Reitz 10
  33.       }
  34.    }
  35.  
  36. # This texture stays in place
  37. define test_map_texture1
  38. texture {
  39.    special surface {
  40.       color test_map[fmod(fabs(W[0]), 1.0)]
  41.       ambient 0.2
  42.       diffuse 0.8
  43.       specular white, 0.5
  44.       microfacet Reitz 10
  45.       }
  46.    }
  47.  
  48. object {
  49.    sphere <0, 0, 0>, 1
  50.    test_map_texture0
  51.    translate <-2.5, 0, 0>
  52.    }
  53.  
  54. object {
  55.    sphere <0, 0, 0>, 1
  56.    test_map_texture0
  57.    }
  58.  
  59. object {
  60.    sphere <0, 0, 0>, 1
  61.    test_map_texture1 { translate <2.5, 0, 0> }
  62.    translate <2.5, 0, 0>
  63.    }
  64.